home *** CD-ROM | disk | FTP | other *** search
/ Chop Suey / Chop Suey (1995)(Magnet Interactive Studios).iso / common / ping.dir / 00001_Ping Movie Script .ls next >
Encoding:
Text File  |  1995-06-16  |  1.2 KB  |  58 lines
  1. on startMovie
  2.   cursor(200)
  3.   SetTheSoundVolumes()
  4.   InitFlush()
  5. end
  6.  
  7. on stopMovie
  8.   global gVoid, General_Time
  9.   set General_Time to gVoid
  10. end
  11.  
  12. on playTheSound
  13.   if not soundBusy(3) then
  14.     sound stop 3
  15.     sound playFile 3, "@:sound:ORIENTL.AIF"
  16.   else
  17.     nothing()
  18.   end if
  19. end
  20.  
  21. on DoLeftFortune
  22.   puppetSprite(15, 1)
  23.   set the castNum of sprite 39 to 10005
  24.   repeat with ThisCast = 122 to 124
  25.     set the castNum of sprite 15 to ThisCast
  26.     PatDelay(0.125)
  27.     updateStage()
  28.   end repeat
  29.   set the randomSeed to the timer
  30.   set ThisFortune to random(3) + 124
  31.   set the castNum of sprite 15 to ThisFortune
  32.   updateStage()
  33.   PatDelay(1)
  34.   set the castNum of sprite 15 to 121
  35.   updateStage()
  36.   puppetSprite(15, 0)
  37.   updateStage()
  38. end
  39.  
  40. on DoRightFortune
  41.   puppetSprite(16, 1)
  42.   set the castNum of sprite 39 to 10005
  43.   repeat with ThisCast = 128 to 131
  44.     set the castNum of sprite 16 to ThisCast
  45.     PatDelay(0.125)
  46.     updateStage()
  47.   end repeat
  48.   set the randomSeed to the timer
  49.   set ThisFortune to random(3) + 131
  50.   set the castNum of sprite 16 to ThisFortune
  51.   updateStage()
  52.   PatDelay(1)
  53.   set the castNum of sprite 16 to 128
  54.   updateStage()
  55.   puppetSprite(16, 0)
  56.   updateStage()
  57. end
  58.